﻿Imports BUS
Imports DAO
Imports DTO

Public Class FormDanhSachKhachHang

    Private Sub FormQuanLyKhachHang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadKhachHang()
    End Sub


#Region "Hàm load danh sách khách hàng"
    Public Sub LoadKhachHang()
        Dim tb As DataTable = KhachHang_BUS.DanhSachKhachHang()
        dgvKhachHang.DataSource = tb
        dgvKhachHang.Columns(0).HeaderText = "Tên Khách Hàng"
        dgvKhachHang.Columns(1).HeaderText = "Địa Chỉ"
        dgvKhachHang.Columns(2).HeaderText = "Điện Thoại"
        dgvKhachHang.Columns(3).HeaderText = "Email"
        dgvKhachHang.Columns(4).HeaderText = "CMND"
        dgvKhachHang.Columns(5).HeaderText = "Tiền Nợ"
        dgvKhachHang.Columns(6).HeaderText = "Tên Tình Trạng"
    End Sub
#End Region

    Private Sub ButtonThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonThoat.Click
        Me.Close()
    End Sub
End Class